home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / GTSWDEC.DXR / 00008_GTSLeaveGames,GTSReturnGames .ls < prev    next >
Encoding:
Text File  |  1997-10-15  |  4.0 KB  |  105 lines
  1. on GTSLeaveGames y
  2.   global GTSGamesMasterList, GTSButtonsSprite, GTSButtonCastNum, GTSbuttonCount, IFLgamesNameSprite, ADDADCOntTwo, IFLButtonList, ADDAdCount, ADDADvertSprite
  3.   forget(window "TRYGAME")
  4.   updateStage()
  5.   if y = 1 then
  6.     nothing()
  7.   else
  8.     puppetSound(0)
  9.     updateStage()
  10.   end if
  11.   repeat with f = 1 to count(GTSGamesMasterList)
  12.     set TwochangeSprite to getAt(GTSGamesMasterList, f)
  13.     if count(TwochangeSprite) > 2 then
  14.       setAt(TwochangeSprite, 2, the castNum of sprite getAt(TwochangeSprite, 1))
  15.       setAt(TwochangeSprite, 5, the ink of sprite getAt(TwochangeSprite, 1))
  16.       setAt(TwochangeSprite, 3, the locH of sprite getAt(TwochangeSprite, 1))
  17.       setAt(TwochangeSprite, 4, the locV of sprite getAt(TwochangeSprite, 1))
  18.     else
  19.       setAt(TwochangeSprite, 2, 0)
  20.     end if
  21.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  22.     set the locV of sprite getAt(TwochangeSprite, 1) to 2000
  23.   end repeat
  24.   set the locH of sprite 38 to 2000
  25.   set the locH of sprite ADDADvertSprite to 2000
  26.   set GTSbuttonCount to 0
  27.   if y = 1 then
  28.     set the castNum of sprite IFLgamesNameSprite to 17
  29.   end if
  30.   if y = 2 then
  31.     set the locH of sprite 1 to 2000
  32.     repeat with f = 1 to count(IFLButtonList)
  33.       set ThisTempList to getAt(IFLButtonList, f)
  34.       setAt(ThisTempList, 2, the castNum of sprite getAt(ThisTempList, 1))
  35.       setAt(ThisTempList, 5, the ink of sprite getAt(ThisTempList, 1))
  36.     end repeat
  37.     repeat with t = 39 to 47
  38.       set the locH of sprite t to 2000
  39.     end repeat
  40.     set ADDADCOntTwo to 0
  41.     set ADDAdCount to 0
  42.     set the locH of sprite ADDADvertSprite to 2000
  43.     ADDLOADAdd()
  44.   end if
  45.   updateStage()
  46. end
  47.  
  48. on GTSReturnGames y
  49.   global GTSGamesMasterList, IFLButtonList, IFLgamesNameSprite, GTSHeadCastNum, GTSVisitCoverSprite, ADDADvertSprite, GTSSnapCover
  50.   if y = 1 then
  51.     repeat with g = 1 to 10
  52.       set the castNum of sprite IFLgamesNameSprite to the castNum of sprite IFLgamesNameSprite - 1
  53.       updateStage()
  54.     end repeat
  55.   end if
  56.   repeat with f = 1 to count(GTSGamesMasterList)
  57.     set TwochangeSprite to getAt(GTSGamesMasterList, f)
  58.     if count(TwochangeSprite) > 2 then
  59.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  60.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  61.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  62.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  63.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  64.       next repeat
  65.     end if
  66.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  67.   end repeat
  68.   if y = 2 then
  69.     repeat with f = 1 to count(IFLButtonList)
  70.       set TwochangeSprite to getAt(IFLButtonList, f)
  71.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  72.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  73.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  74.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  75.     end repeat
  76.     set the castNum of sprite 1 to the number of member "IFLStaticBackground"
  77.     set the ink of sprite 1 to 36
  78.     set the locH of sprite 1 to 325
  79.     set the locV of sprite 1 to 271
  80.     if GTSSnapCover > 2 then
  81.       set the locH of sprite 38 to 2000
  82.     end if
  83.   end if
  84.   if GTSHeadCastNum > 0 then
  85.     set the castNum of sprite IFLgamesNameSprite to GTSHeadCastNum
  86.   end if
  87.   ADDAdvertBreak(7)
  88.   updateStage()
  89.   go("GTSgamesSection")
  90.   set the windowType of window "TRYGAME" to 2
  91.   set the rect of window "TRYGAME" to rect(the stageLeft + 412, the stageTop + 90, the stageLeft + 515, the stageTop + 195)
  92.   open(window "TRYGAME")
  93.   tell window "TRYGAME"
  94.     updateStage()
  95.   end tell
  96.   if GTSVisitCoverSprite > 0 then
  97.     tell window "TRYGAME"
  98.       set the locH of sprite GTSVisitCoverSprite to 52
  99.     end tell
  100.     tell window "TRYGAME"
  101.       set the locV of sprite GTSVisitCoverSprite to 53
  102.     end tell
  103.   end if
  104. end
  105.